{ ----------------------------------------------------------------------------
  Amstrad Notepad emulator
  Copyright (c) Michael Nixon (Zipplet) 2011.
  http://www.zipplet.co.uk/

  Notepad state
  ---------------------------------------------------------------------------- }
unit unitnotepadstate;

interface

uses classes, unitglobals;

{ ----------------------------------------------------------------------------
  tnotepadstate: Holds emulation state
  ---------------------------------------------------------------------------- }
type
  tnotepadstate = class(tobject)
    private
    protected
    public
      { ----------------------------------------------------------------------
        Machine state
        ---------------------------------------------------------------------- }

      { System RAM }
      ram: pbytearr;
      ramsize: longint;

      { System ROM (Firmware) }
      rom: pbytearr;
      romsize: longint;

      { Card RAM }
      cardram: pbytearr;
      cardramsize: longint;
      cardpresent: boolean;
      {
      function saveState(stream: tstream): boolean;
      function loadState(stream: tstream): boolean;
      }
      constructor Create;
      destructor Destroy; override;
  end;

implementation

end.
